home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 22
/
Cream of the Crop 22.iso
/
bbs
/
nodesrch.zip
/
NODEINDX.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1996-11-14
|
3KB
|
175 lines
;------------------------------------------------------------------------------
; .ss.
; `²²'
; .,sS$Ss,,s$ .,sS$$$Ss. .,sS$Ss,,s$ .ss. .sSs.
; .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
; $$$' .$$$' $$$²Sçsµ²' .$$$' .$$$'.$$$' .$$$' `$$b.
; $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$' ;$$$
; `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
; .sS²°$$$²²°"' d²°'
; .$$² .$$'
; $$$.,d$$'
; `²S$$S²'
;------------------------------------------------------------------------------
; P.P.L.X. 2.OO (C)1996 - Lone Runner / AEGiS CoRP'96
;------------------------------------------------------------------------------
; PPE 3.3O (Encryption type II) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
Integer INTEGER001
;------------------------------------------------------------------------------
Cls
INTEGER001 = DNext()
If (Exist(PPEPath() + "nodelist.dbf")) Then
DOpen INTEGER001, PPEPath() + "nodelist", 0
If (DErr(INTEGER001)) Goto LABEL001
PrintLn
PrintLn "@X0ENode List Found!@X07"
Goto LABEL002
:LABEL001
PrintLn
PrintLn "Error opening file"
Wait
:LABEL002
Else
PrintLn
PrintLn "File does not exist"
Wait
Endif
AnsiPos 4, 4
PrintLn "@X81Now Creating The NAME INDEX!!!@X07"
If (Exist(PPEPath() + "nodesrch.ndx")) Delete PPEPath() + "nodesrch.ndx"
DnCreate INTEGER001, PPEPath() + "nodesrch.ndx", "Sysop_Name"
If (DErr(INTEGER001)) Then
PrintLn "@X84Error creating index.@X07"
Wait
Endif
DTag INTEGER001, "nodesrch"
If (DErr(INTEGER001)) Goto LABEL003
AnsiPos 4, 4
PrintLn "@X02The NAME INDEX Is Finished !!!@X07"
Goto LABEL004
:LABEL003
PrintLn "@X84Error Creating File!@X07"
Wait
:LABEL004
AnsiPos 6, 6
PrintLn "@X81Now Creating The BBS NAME INDEX!!!@X07"
If (Exist(PPEPath() + "BBSNAME.ndx")) Delete PPEPath() + "BBSNAME.ndx"
DnCreate INTEGER001, PPEPath() + "BBSNAME.ndx", "BBS_Name"
If (DErr(INTEGER001)) Then
PrintLn "@X84Error creating index.@X07"
Wait
Endif
DTag INTEGER001, "BBSNAME"
If (DErr(INTEGER001)) Goto LABEL005
AnsiPos 6, 6
PrintLn "@X02The BBS NAME INDEX Is Finished !!!@X07"
Goto LABEL006
:LABEL005
PrintLn "@X84Error Creating File!@X07"
Wait
:LABEL006
AnsiPos 8, 8
PrintLn "@X81Now Creating The BBS LOCATION INDEX!!!@X07"
If (Exist(PPEPath() + "LOCATION.ndx")) Delete PPEPath() + "LOCATION.ndx"
DnCreate INTEGER001, PPEPath() + "LOCATION.ndx", "Location"
If (DErr(INTEGER001)) Then
PrintLn "@X84Error creating index.@X07"
Wait
Endif
DTag INTEGER001, "LOCATION"
If (DErr(INTEGER001)) Goto LABEL007
AnsiPos 8, 8
PrintLn "@X02The BBS LOCATION INDEX Is Finished !!!@X07"
Goto LABEL008
:LABEL007
PrintLn "@X84Error Creating File!@X07"
Wait
:LABEL008
AnsiPos 10, 10
PrintLn "@X81Now Creating The NET NUMBER INDEX!!!@X07"
If (Exist(PPEPath() + "NETLIST.ndx")) Delete PPEPath() + "NETLIST.ndx"
DnCreate INTEGER001, PPEPath() + "NETLIST.ndx", "Net"
If (DErr(INTEGER001)) Then
PrintLn "@X84Error creating index.@X07"
Wait
Endif
DTag INTEGER001, "NETLIST"
If (DErr(INTEGER001)) Goto LABEL009
AnsiPos 10, 10
PrintLn "@X02The NET NUMBER INDEX Is Finished !!!@X07"
Goto LABEL010
:LABEL009
PrintLn "@X84Error Creating File!@X07"
Wait
:LABEL010
AnsiPos 12, 12
PrintLn "@X81Now Creating The PHONE NUMBER INDEX!!!@X07"
If (Exist(PPEPath() + "PHONE.ndx")) Delete PPEPath() + "PHONE.ndx"
DnCreate INTEGER001, PPEPath() + "PHONE.ndx", "BBS_Phone"
If (DErr(INTEGER001)) Then
PrintLn "@X84Error creating index.@X07"
Wait
Endif
DTag INTEGER001, "PHONE"
If (DErr(INTEGER001)) Goto LABEL011
AnsiPos 12, 12
PrintLn "@X02The PHONE NUMBER INDEX Is Finished !!!@X07"
Goto LABEL012
:LABEL011
PrintLn "@X84Error Creating File!@X07"
Wait
:LABEL012
DCloseAll
End
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 1 End
; 1 Cls
; 12 Wait
; 20 Goto
; 1 Let
; 26 PrintLn
; 17 If
; 5 Delete
; 10 AnsiPos
; 1 DOpen
; 1 DCloseAll
; 5 DnCreate
; 5 DTag
;
;
; ■ Functions used :
;
; 17 +
; 12 !
; 17 PPEPath()
; 6 Exist()
; 11 DErr()
; 1 DNext()
;
;------------------------------------------------------------------------------
;
; Analysis flags : No flag
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 0 For/Next
; 0 While/EndWhile
; 6 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------